From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jun 1993 02:06:51 +0000 (+0000)
Subject: (shut_down_emacs): New arg STUFF.  Stuff input here.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95349
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f7ab4e3d35b16325e4cbf021808fcf41d572065d;p=emacs.git

(shut_down_emacs): New arg STUFF.  Stuff input here.
(Fkill_emacs, fatal_error_signal): Pass new arg.

(main) [GETPGRP_NO_ARG]: Really pass no arg to getpgrp.
---

diff --git a/src/emacs.c b/src/emacs.c
index 026d669cf0d..3e18c398f13 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -135,7 +135,7 @@ fatal_error_signal (sig)
     {
       fatal_error_in_progress = 1;
 
-      shut_down_emacs (sig, 0);
+      shut_down_emacs (sig, 0, Qnil);
     }
 
 #ifdef VMS
@@ -301,7 +301,7 @@ main (argc, argv, envp)
 #ifdef BSD
   {
 #ifdef GETPGRP_NO_ARG
-    inherited_pgroup = getpgrp (0);
+    inherited_pgroup = getpgrp ();
 #else /* THISSENTENCE_NO_VERB */
     inherited_pgroup = getpgrp (0);
 #endif
@@ -652,7 +652,6 @@ all of which are called before Emacs is actually killed.")
 /* #ifdef VMS
   stop_vms_input ();
  #endif  */
-  stuff_buffered_input (arg);
 
   shut_down_emacs (0, 0);
 
@@ -677,9 +676,11 @@ all of which are called before Emacs is actually killed.")
 
    This is called by fatal signal handlers, X protocol error handlers,
    and Fkill_emacs.  */
+
 void
-shut_down_emacs (sig, no_x)
+shut_down_emacs (sig, no_x, stuff)
      int sig, no_x;
+     Lisp_Object stuff;
 {
   /* If we are controlling the terminal, reset terminal modes */
 #ifdef EMACS_HAVE_TTY_PGRP
@@ -703,6 +704,8 @@ shut_down_emacs (sig, no_x)
   reset_sys_modes ();
 #endif
 
+  stuff_buffered_input (stuff);
+
   kill_buffer_processes (Qnil);
   Fdo_auto_save (Qt, Qnil);